Merci pour c'est explication ,je viens de les noter pour pas les oublier . (je me fait des fiche )
j'ai du faire une faute en recopient comme ca me dit erreur "L'indice n'appartient pas à la sélection"
j’essaye de comprendre l'erreur mais mème en cherchant dans mais fiche je comprend pas ou est l'erreur
désoler de profiter de votre gentillesse
'A mettre en tête du module
Option Explicit
Option Compare Text
Sub deplace()
Dim b As Long, Mot As String
Mot = "test"
With Sheets("cours4") 'me dit que le problème est la
For b = 2 To .Range("A" & Rows.Count).End(xlUp).Row 'permet de reproduire l'action
If .Cells(b, 2).Value Like "*" & Mot & "*" Then
.Cells(b - 1, 2).Value = .Cells(b, 2).Value 'Report valeur dans cellule du dessus
.Cells(b, 2).ClearContents 'Suppression contenu cellule
End If
Next b
MsgBox "fin"
End With
End Sub