Option Explicit
Sub NettoieSuivisAppels()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim derlg As Long, i As Long
With Sheets("Feuil1") 'à remplacer par nom de ta feuille
derlg = .Range("r" & .Rows.Count).End(xlUp).Row 'remplacer A par colonne concernée
For i = derlg To 1 Step -1
If .Range("r" & i) = "bleu" Then Exit For
Next i
'MsgBox .Range("r" & i).Address
Range("r" & i).Select
End With
ActiveCell.Offset(1).Resize(1).Select
ActiveCell.Offset(0, -13).Select 'date
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide de la colonne
ActiveCell.Offset(0, 2).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 1)).Select 'tel
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide des 2 colonnes
ActiveCell.Offset(0, 3).Select 'n° client
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide de la colonne
Range(ActiveCell.Offset(0, 9), ActiveCell.Offset(0, 10)).Select 'motif 1 2
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide des 2 colonnes
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub