Sub Valider ()
Dim t, w, x, y, z As Integer
Dim text1 As String
Dim i
z = 0 'Compteur 1
x = 5 'ligne sur onglet Controles
w = 2 'ligne sur onglet Référentiel
y = 1 'Compteur 2
t = 7 'ligne sur onglet Analyse
While z <= 20
If Sheets("Controles").Cells(x, 7) = True Then
text1 = Sheets("Controles").Cells(x, 6) 'text1 prend la valeur du domaine coché
While y <= 160
If Sheets("Référentiel").Cells(w, 2) = text1 Then
Sheets("Analyse").Cells(t, 2) = Sheets("Référentiel").Cells(w, 2)
Sheets("Analyse").Cells(t, 3) = Sheets("Référentiel").Cells(w, 4)
Sheets("Analyse").Cells(t, 4) = Sheets("Référentiel").Cells(w, 5)
Sheets("Analyse").Cells(t, 5) = Sheets("Référentiel").Cells(w, 6)
t = t + 1 'changement de ligne sur onglet Analyse uniquement si le If est validé
End If
y = y + 1 'Le compteur 2 gagne 1
w = w + 1 'Le changement de ligne sur Référentiel 2 se fait indépendamment du IF
Wend
End If
z = z + 1
x = x + 1
w = 7
y = 1
Wend
End Sub