Plusieurs conditions dans macro

Option Explicit

Sub affectertouslesdiam()
Dim Nbre As Byte, Cptr As Byte
Dim T_diam(), Nb_diam As Integer
Dim Lig As Integer, Cptr_lig As Integer, T_out(), Feuille As String * 6, Ligvid As Integer

Application.ScreenUpdating = False
'mémorise le nom des feuilles diamêtres
     Nbre = Sheets.Count
     For Cptr = 2 To Nbre
          ReDim Preserve T_diam(1 To Nbre)
          T_diam(Cptr - 1) = Right(Sheets(Cptr).Name, 5)
     Next
     For Cptr = 1 To UBound(T_diam)
          With Sheets(1)
          Nb_diam = Application.CountIf(.Columns("C"), T_diam(Cptr))
          If Nb_diam > 0 Then
          'recherche des diam^tre de la feuille en cours
               Lig = 1
               For Cptr_lig = 1 To Nb_diam
                    Lig = .Columns("C").Find(T_diam(Cptr), .Cells(Lig, "C"), xlValues).Row
                    T_out = .Range(.Cells(Lig, "A"), .Cells(Lig, "J")).Value
                    Feuille = "f" & T_diam(Cptr)
                    'restitution dans la feuille diam^tre en courd
                    With Sheets(Feuille)
                         Ligvid = .Columns("T").Find("", .Range("T2")).Row
                         .Range(.Cells(Ligvid, "T"), .Cells(Ligvid, "AB")) = T_out
                    End With
               Next
          End If
          End With
     Next
MsgBox " Répartition par diamètre terminée"

End Sub