Dim ws As Worksheet, vcellule As Range
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Recap" Then
For Each vcellule In ws.Range("a6:a" & ws.Range("a65536").End(xlUp).Row)
If vcellule.Value = "total" Then
'ton action
End If
Next vcellule
End If
Next ws