Bonsoir Hervé et Thomas,
je vous remercie de votre réponse. Hervé, ta solution fonctionne bien et je t'en remercie.
Cependant, je ne parviens pas à finir ma macro. En fait, une fois sélectionné toutes les feuilles nécessaires, par exemple celles qui comportent 'ABC', je souhaite leur insérer à toutes une copie de cellules sur la même ligne.
Pour cela, j'ai essayé le code suivant, mais ça ne fonctionne pas.
Public Sub selectionfeuille()
Dim ws As Worksheet
Feuil3.Select
Cells.Select
Selection.Copy
For Each ws In Worksheets
If Left(ws.Name, 3) = 'ABC' Then
ActiveSheet.Paste
End If
Next ws
End Sub
Pourriez-vous m'aider à finir ma macro, svp. Je vous en serez très reconnaissant, d'autant plus qu'il ne doit pas manquer grand chose.
Merci d'avance.
@ bientôt.
Jo38.