ce code fonctionne correctement, mais me paraît lourd
auriez-vous des suggestions
merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Verif1 = "1" And A = "" Then 'A = nom 1er animal si plusieurs
Cells(x, 10) = ", " & Tb(x, 11)
End If
    If Verif1 = "-" And Verif2 = "1" Then
    Cells(x, 10) = A & ", " & Tb(x, 11)
    A = Cells(x, 10)
    End If
        If Verif1 = "-" And Verif2 = "-" Then
        Cells(x, 10) = A & ", " & Tb(x, 11)
        A = Cells(x, 10)
        End If
            If Verif1 = "1" And Verif3 = "-" Then
            Cells(x, 10) = A & ", " & Tb(x, 11)
            A = ""
            End If