Je voudrais pouvoir tester la présence ou non d'une feuille . Si elle existe, la sélectionner, sinon la créer et la nommer.

sub SelectFeuille(Nom$)
 On Error Resume Next
 Worksheets(Nom).Select
 If Err <> 0 Then Worksheets.Add.Name = Nom
 end sub

ensuite, dans ton code : SelectFeuille ("récapitulation")