Me dit erreur de syntaxe?

Private Sub CommandButton1_Click()

Dim DL As Integer

if Me.Txt_société <> "" and me.Txt_désignationetréférence <> "" and me.Txt_prixunitaire <> "" and me.Txt_stockmini <>""
Sheets(3).ListObjects(1).ListRows.Add
DL = Sheets(3).Range("b9999").End(xlUp).Row

' ajouter dans le tableau '
Sheets(3).Range("b" & DL) = Me.Label_info.Caption
Sheets(3).Range("c" & DL) = Me.Txt_société
Sheets(3).Range("d" & DL) = Me.Txt_désignationetréférence
Sheets(3).Range("g" & DL) = CCur(Me.Txt_prixunitaire)
Sheets(3).Range("l" & DL) = CInt(Me.Txt_stockmini)

Sheets(5).Range("d19") = Sheets(5).Range("d19") + 1

ThisWorkbook.Save
Unload Add_Article

End If
End Sub