Sub MOTG()
Dim WSD As Worksheet
Dim WS6 As Worksheet
Dim nb_delai_2j As Integer
Dim i As Integer
Dim L As Integer
nb_delai_tot = 0
nb_delai_2j = 0
Set WSD = ThisWorkbook.Sheets('Données')
Set WS6 = ThisWorkbook.Sheets('MOTG')
WSD.Select
L = WSD.Range('B65536').End(xlUp).Row + 1 ' On identifie la dernière ligne vide en partant du bas
'With WSD
For i = 12 To L
If ('I' & i) = 'X' Then 'Or 'x'
nb_delai_2j = nb_delai_2j + 1
End If
Next i
WS6.Range('A1').Value = nb_delai_2j
End Sub