Merci Hervé,
dans ton exemple le copier-coller des cellules commence ligne 16 mais si je veux que ça soit coller plutôt dans la colonne 6 à la ligne 2 quelle est la ligne de commande que je dois rajouter ou modifier ?
Public Sub vev()
Dim c As Range
Dim ligne As Integer, colonne As Integer
'initialisation de la variable ligne ICI JE MODIFIE COMMENT ?
ligne = 16, COLONNE = 5 ???
'pour chaque cellule de la colonne C de la ligne 1 à la derniere non vide
For Each c In Range("c1:c" & Range("c65000").End(xlUp).Row)
'Si dans la cellule on trouve "1 - 1"
If Not c.Find("1 - 1") Is Nothing Then
'alors pour colonne = 1 jusqu'à 4
For colonne = 1 To 4
' a la cellule (16,1) on place les valeurs de la ligne contenant "1 - 1"
Cells(ligne, colonne) = Cells(c.Row, colonne)
Next colonne
'incrémentation de la ligne, sinon on écrit toujours sur la même
ligne = ligne + 1
End If
Next c
End Sub