Bonjour Soan,
Désolé pour le retard
1/ J'ai changé de la recherche d'un "sous traitant" vers la recherche "N° contrat" vu qu'un sous traitant peut avoir plusieurs contrats.
Sub MajRAF()
If ActiveSheet.Name <> "Suivi" Then Exit Sub
Dim ST$, c01 As Range, c02 As Range, k&, n%, i%
n =...